perm filename XXX.A[C,JRA] blob sn#020493 filedate 1973-01-18 generic text, type T, neo UTF8
00100	(DE FOO()
00200	(PROG (Z Z1)
00300	(SETQ Z OBLIST)
00400	C(SETQ Z1(CAR Z))
00500	A(COND((NULL Z1)(GO B))
00600	    ((GETL(CAR Z1)(QUOTE( EXPR FEXPR)))(PRINT (CAR Z1))))
00700	(SETQ Z1(CDR Z1))(GO A)
00800	B(SETQ Z(CDR Z))
00900	(COND (Z(GO C)))))
01000